  .ORIG x3000
  LEA R0, U
  LDB R1, R0, #2
  LDB R2, R0, #4
  LDW R0, R0, #0
  LEA R3, Z
  LEA R5, H
  ADD R6, R2, R1
  STB R6, R3, #0
  LEA R4, func
  JSR func
  JSRR R4
  STB R0, R5, #0
  HALT
U .FILL #10
Y .FILL #259
W .FILL #258
Z .FILL #0
H .FILL #0


func ADD R0, R0, #-1
     BRp func
     RET
    .END
